home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / FANT4-1.DSK / CREATE DATA DISK.B.bas < prev    next >
BASIC Source File  |  2014-09-09  |  473b  |  7 lines
  1. 10  ONERR  GOTO 60
  2. 20 D$ =  CHR$(4)
  3. 30  TEXT : HOME : PRINT : PRINT D$"BRUN INITFDOS,A$8000": VTAB 10: HTAB 5: PRINT "INSERT BLANK DISK IN DRIVE ONE": VTAB 24: HTAB 7: PRINT "PRESS ANY KEY TO CONTINUE.";: GET A$: PRINT 
  4. 40  HOME : VTAB 12: HTAB 13: PRINT "FORMATTING..."
  5. 50  PRINT D$"INIT HELLO,D1"
  6. 60  TEXT : HOME : VTAB 12: HTAB 1: PRINT "INSERT YOUR MASTER DISK INTO THE DRIVE.": VTAB 24: HTAB 7: PRINT "PRESS ANY KEY TO CONTINUE";: GET A$
  7. 70  PRINT : PRINT D$"RUN MENU"